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-- BcdDefs.Mesa Edited by Johnsson on August 29, 1977 6:34 PM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
BcdTableDefs: FROM "bcdtabledefs" , 
ControlDefs; FROM "controldefs", 
TimeDefs: FROM "timedefs"; 

BcdDefs: DEFINITIONS = 
BEGIN 

TableLimit: CARDINAL = BcdTableDefs .TableLimit; 

VersionStamp: TYPE = RECORD [ 
zapped: BOOLEAN, 
net: [0..128), 
host: AltoDefs.BYTE. 
time: TimeDefs. PackedTime]; 

-- BCD Header 

VersionID: CARDINAL = 08267; 

BCD: TYPE ^ RECORD [ 
versionident: CARDINAL, 
version: VersionStamp, 
creator: VersionStamp, 
nPages: AT toDefs . PageCount, 
nConfigs, nModules: CARDINAL, 
nimports, nExports: CARDINAL, 
definitions: BOOLEAN, 
firstdummy: GFTIndex, 
nDummies: CARDINAL, 

ssOffset: CARDINAL, -- string table 
ssLimit: CARDINAL, 

ctOffset: CARDINAL, -- config table 
ctLimit: CTIn'Jex, 

mtOffset: CARDINAL, -- module table 
mtLimit: MTIndex, 

impOffset: CARDINAL, -- import table 
impLimit: IMPIndex, 

expOffset: CARDINAL, -- export table 
expLimit: EXPIndex, 

ftOffset: CARDINAL, -- file table 
ftLimit: FTIndex, 

ntOffset: CARDINAL, -- name table 
ntLimit: NTIndex, 
source: NameRecord]; 

-- Portable Type 

Portable: TYPE = {module, interface}; 

-- Name Table 

NameRecord: TYPE = RECORD [offset, length: CARDINAL]; 

NTRecord: TYPE = RECORD [ 
name: NameRecord, 
item: Namee]; 

Namee: TYPE = RECORD [ 
SCI rCT type:* PROM 

config => [cti: CTlndex], 
module => [mli: MTIndex], 
import => [impi: IMPIndex], 
export => [expi: fXPIndex], 
CNDCASC]: 

NTNull: NTIndex = LAST[NlTTndex] ; 

NTIndex: TYPE = POINTTR [0 .. Tablet imi t) TO NTRecord; 

-- Configuration Table 
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CTRecord: TYPE = RECORD [ 
name: NameRecord, 
namedinstance: BOOLEAN, 
file: FTIndex, 
config: CTIndex, 
control : MTIndex]; 



CTNull: CTIndex = LAST[CTIndex]; 

CTIndex: TYPE = POINTER [0. .TableLimit) TO CTRecord; 



-- Module Table 

MTRecord: TYPE = RECORD [ 
name: NameRecord, 
namedinstance: BOOLEAN, 
file: FTIndex. 
config: CTIndex, 
cseg, sseg: SegDesc, 
framesize: [0. .4096) , 
fsi : [0. . Con trolDefs. max allocs lot], 
gfi: GFTIndex, 
ngfi: [1..4]. 
frame: FrameFrag]; 

FrameFrag: TYPE = RECORD [ 
offset, length: CARDINAL, 
frag: ARRAY [0..1) OF ControlLink] ; 

MTNull: MTIndex = LAST[MTIndex] ; 

MTIndex: TYPE = POINTER [0, . Tab! eLimi t) TO MTRecord; 



-- Import Table 

IMPRecord: TYPE = RECORD [ 
name: NameRecord, 
port: Portable, 
namedinstance: BOOLEAN, 
file: FTIndex, 
gfi: GFTIndex, 
ngfi: [1..4]]; 

IMPNull: IMPIndex = LAST[IMPIndex] ; 

IMPIndex: TYPE = POINTER [0 .. TableLimit) TO IMPRecord; 



-- Export Table 

EXPRecord: TYPE = RECORD [ 
name: NameRecord, 
size: CARDINAL, 
port: Portable, 
namedinstance: BOOLEAN, 
file: FTIndex, 
links: ARRAY [0..1) OF ControlLink]; 

EXPNull: EXPIndex = LAST[EXPIndex] ; 

EXPIndex: TYPE = POINTER [0 . . Tabl eLimi t ) TO EXPRecord; 



-- File Table 

SegDesc: TYPE = RECORD [ 
file: FTIndex , 
base: AltoDef s . PageNumber , 
pages, extraPages: [0..256)]; 

FTRecord: TYPE = RECORD [ 
name: NameRecord, 
version: Vers ionStamp] ; 

FTNull: FTIndex = 1 AST[ FTIndex] ; 

FTSelF: FTIndex = LAST[FTTndex]- 1 ; 

FTIndex: TYPE = POINTER [0 . . TableL im i t ) TO FTRecord: 
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— Dummy Control Link 

ControlLinkTag: TYPE = {frame, procedure, indirect, unbound}; 

GFTIndex: TYPE = [0..777B]: 
GFTNull: GFTIndex = LAST[GFTIndex] ; 

EPIndex: TYPE = [0,.37B]; 

EPLimit: CARDINAL = LAST[EPIndex]+l ; 

ControlLink: TYPE = MACHINE DEPENDENT RECORD [ 
gfi: GFTIndex, 
ep: EPIndex, 
tag: ControlLinkTag]; 

NullLink: ControlLink * [0,0, frame]; 
UnboundLink: ControlLink = [0 ,0, unbound] ; 

END. 



